home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 May & June / Amiga-CD 1997 #5-6.iso / patches / finalwrapper3_13 / finalwrapperpatch.rexx < prev    next >
OS/2 REXX Batch file  |  1997-02-15  |  454b  |  14 lines
  1. /* $VER: FinalWrapperPatch.rexx 1.0 (15.02.97) by NDY's */
  2. /* Forces a fixed width window, apply it if window is opened too small */
  3.  
  4. OPTIONS RESULTS
  5. IF Open(path,"ENVARC:FinalWrapper/FWPath","R") THEN
  6.   DO
  7.     p=ReadLn(path)
  8.     CALL Close(path)
  9.     p=p||"FinalWrapper.rexx"
  10.     ADDRESS COMMAND "Echo >>"||p "TextLength: PROCEDURE"
  11.     ADDRESS COMMAND "Echo >>"||p "PARSE ARG x,text,x"
  12.     ADDRESS COMMAND "Echo >>"||p "RETURN (Length(text)-1)*8"
  13.   END
  14.